home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 3-297 qmodem pro 102 / 1.ima / SCRIPT.ZIP / GAP.SCR < prev    next >
Encoding:
Text File  |  1993-03-03  |  2.0 KB  |  69 lines
  1. ; This script is designed for use with a GAP BBS system using the MAINMAIL
  2. ; .QWK mail door.  It automates login, mail download and .REP upload.
  3. ; To operate properly you must enter your name and password in the
  4. ; QmodemPro phonebook entry.
  5. ;
  6. TurnON   8_BIT
  7. TurnOFF  LINEFEED
  8. TurnOFF  XON/XOFF
  9. TurnON   NOISE
  10. TurnOFF  MUSIC
  11. TurnON   SCROLL
  12. TurnOFF  PRINT
  13. TurnOFF  SPLIT
  14. TurnON   STATUSLN
  15. TurnOFF  DOORWAY
  16.  
  17. TimeOut  60                          ; Set Waitfor for 30 seconds
  18.  
  19. WHEN "?" "N^M"
  20. WHEN "Continue" "^M"
  21.  
  22. Waitfor  "First Name"               ; Wait for prompt for your name
  23. Delay    100
  24. Send     "$USERID^M"                ; Send UserID from the Phone Book.
  25.  
  26. WaitFor  "Password"
  27. Delay    100
  28. Send     "$PASSWORD^M"
  29.  
  30. Waitfor "Board Command"             ; Wait for menu
  31. Send "MAINMAIL^M"
  32. IF $GETMAIL DOWNLOADMAIL            ; If flag to get mail set, get it.
  33. DOWNFINISHED:
  34.  
  35. WHEN   ; Clear when's
  36. Timeout 60
  37. IF $SENDMAIL UPLOADMAIL
  38. UPSUCCESS:                          ; If upload successful, delete packet
  39. DELETEF $REPPATH$PACKET.REP
  40. Exit                                ; Script is done.
  41.  
  42. UPLOADMAIL:                         ; Upload REP section
  43. Waitfor "MainMail System Command"
  44. Delay    100
  45. Send     "U^M"                      
  46. Delay 500
  47. UPLOAD Z $REPPATH$PACKET.REP        ; Tell it to send REP packet
  48. IF $SUCCESS UPSUCCESS               ; If success, goto success label
  49. GOTO UPLOADMAIL                     ; If not success go back to uploadmail
  50.  
  51.  
  52. DOWNLOADMAIL:                       ; Download label
  53. WHEN
  54. When     "No Messages"  DOWNFINISHED ; If no new mail.
  55. Waitfor  "MainMail System Command"   ; Mail Door Main Menu
  56. Delay    1000
  57. Send     "D^M"                       ; Tell it to [D]ownload Mail
  58. Delay    500
  59. Waitfor  "When Done"                 ; Download new Mail if $GETMAIL Set
  60. Delay    100
  61. Send     "Y^M"
  62. Delay    500
  63. Timeout 999
  64. Waitfor "Packet Name"
  65. DOWNLOAD Z $QWKPATH                  ; Download the .QWK packet using Zmodem
  66. IF $SUCCESS DOWNFINISHED
  67. GOTO DOWNLOADMAIL
  68.  
  69.